
Partial Class Controls_ThemeSelector
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With ddlThemes
            If Globals.ThemeSelectorID = "" Then Globals.ThemeSelectorID = ddlThemes.UniqueID
            .DataSource = Helpers.GetThemes
            .DataBind()
            .SelectedValue = Me.Page.Theme
        End With
    End Sub
End Class
